home *** CD-ROM | disk | FTP | other *** search
/ Essentials of Interactive Physiology / Essentials of Interactive Physiology.iso / pc / files / evaluation / evaluation.dcr / 00023.ls < prev    next >
Encoding:
Text File  |  2002-04-02  |  1.7 KB  |  62 lines
  1. on createAEList
  2.   vsList = EMPTY
  3.   repeat with i = 1 to 30
  4.     repeat with j = 1 to 3
  5.       vsAEName = "ch" & IntegerToString(i, 2) & "ae" & string(j)
  6.       vsList = vsList & RETURN & vsAEName
  7.     end repeat
  8.   end repeat
  9.   member("chapterActivities").text = vsList
  10. end
  11.  
  12. on createbitmap
  13.   vsName = "chapterLabel"
  14.   repeat with i = 1 to 28
  15.     vsMemberName = vsName & IntegerToString(i, 2)
  16.     viMember = new(#bitmap, castLib("internal"))
  17.     member(viMember).name = vsMemberName
  18.   end repeat
  19. end
  20.  
  21. on createChapterList
  22.   vsList = EMPTY
  23.   repeat with i = 1 to 30
  24.     vsAEName = "Chapter " & IntegerToString(i, 2)
  25.     vsList = vsList & RETURN & vsAEName
  26.   end repeat
  27.   member("chapterText").text = vsList
  28. end
  29.  
  30. on createChapterData
  31.   vsList = EMPTY
  32.   repeat with i = 1 to 30
  33.     vsList = vsList & RETURN
  34.     repeat with j = 1 to 3
  35.       vsList = vsList & "ch" & IntegerToString(i, 2) & "ae" & string(j) & TAB
  36.     end repeat
  37.     vsList = vsList & "ch" & IntegerToString(i, 2) & "quiz"
  38.   end repeat
  39.   delete line 1 of vsList
  40.   member("chapterData").text = vsList
  41. end
  42.  
  43. on renameImages
  44.   repeat with i = 10 to 30
  45.     member("ch" & IntegerToString(i, 2) & "ae1").name = "ch" & IntegerToString(i, 2) & "image"
  46.   end repeat
  47. end
  48.  
  49. on renamecs
  50.   repeat with i = 1 to 30
  51.     repeat with j = 1 to 9
  52.       vsWhich = "ch" & IntegerToString(i, 2) & "cs" & string(j)
  53.       if MemberExistsInCastLibP(vsWhich & ".hi", "art") then
  54.         member(vsWhich & ".hi").name = "ch" & IntegerToString(i, 2) & "cs" & IntegerToString(j, 2) & ".hi"
  55.       end if
  56.       if MemberExistsInCastLibP(vsWhich & ".spacer", "art") then
  57.         member(vsWhich & ".spacer").name = "ch" & IntegerToString(i, 2) & "cs" & IntegerToString(j, 2) & ".spacer"
  58.       end if
  59.     end repeat
  60.   end repeat
  61. end
  62.